home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / prg_basi / vbcode1u.zip / VBCODE10.DA_ / VBCODE10.DA / Codes.json < prev   
JavaScript Object Notation  |  1996-01-10  |  3KB
  1. {
  2.     "schema": {
  3.         "AppNum": "Text (3)",
  4.         "ParNum": "Text (3)",
  5.         "ParDesc": "Text (50)",
  6.         "Code": "Memo/Hyperlink (255)"
  7.     },
  8.     "data": [
  9.         {
  10.             "AppNum": "WAB",
  11.             "ParNum": "100",
  12.             "ParDesc": "Code About (G├⌐n├⌐rique)",
  13.             "Code": "' Add-in VBCode"
  14.         },
  15.         {
  16.             "AppNum": "WAB",
  17.             "ParNum": "101",
  18.             "ParDesc": "Code About : Centr├⌐e-oui , Info Syst├¿me-non",
  19.             "Code": "Private Sub cmdOk_Click()\r\n    Unload Me\r\nEnd Sub\r\n\r\nPrivate Sub Form_Load()\r\n   set me.icon = nothing\r\n    frmcenter Me\r\nEnd Sub\r\n\r\nPrivate Sub frmcenter(frm As Form)\r\n    Dim savescale As Integer\r\n    savescale = frm.ScaleMode\r\n    frm.ScaleMode = 1\r\n    frm.Top = Screen.Height / 2 - frm.Height / 2\r\n    frm.Left = Screen.Width / 2 - frm.Width / 2\r\n    frm.ScaleMode = savescale\r\nEnd Sub"
  20.         },
  21.         {
  22.             "AppNum": "WAB",
  23.             "ParNum": "102",
  24.             "ParDesc": "Code About : Centr├⌐e-non , Info Syst├¿me-oui",
  25.             "Code": "Private Type MemoryStatus\r\n    dwLength As Long\r\n    dwMemoryLoad As Long\r\n    dwTotalPhys As Long\r\n    dwAvailPhys As Long\r\n    dwTotalPageFile As Long\r\n    dwAvailPageFile As Long\r\n    dwTotalVirtual As Long\r\n    dwAvailVirtual As Long\r\nEnd Type\r\n\r\nPrivate Declare Sub OSGlobalMemoryStatus Lib \"kernel32\" Alias \"GlobalMemoryStatus\" (lpBuffer As MemoryStatus)\r\n\r\nPrivate Sub cmdOk_Click()\r\n    Unload Me\r\nEnd Sub\r\n\r\nPrivate Sub Form_Load()\r\n    Dim YourMemory As MemoryStatus\r\n    Set Me.Icon = Nothing\r\n    OSGlobalMemoryStatus YourMemory\r\n    lbltxt(6).Caption = Trim(Str(CLng(YourMemory.dwTotalPhys / 1024))) & \"ko\"\r\n    lbltxt(8).Caption = Trim(Str(CLng((YourMemory.dwTotalPhys / 1024) - _\r\n                            (YourMemory.dwMemoryLoad * (YourMemory.dwTotalPhys / 102400))))) & \" ko\"\r\nEnd Sub"
  26.         },
  27.         {
  28.             "AppNum": "WAB",
  29.             "ParNum": "103",
  30.             "ParDesc": "Code About : Centr├⌐e-oui , Info Syst├¿me-oui",
  31.             "Code": "Private Type MemoryStatus\r\n    dwLength As Long\r\n    dwMemoryLoad As Long\r\n    dwTotalPhys As Long\r\n    dwAvailPhys As Long\r\n    dwTotalPageFile As Long\r\n    dwAvailPageFile As Long\r\n    dwTotalVirtual As Long\r\n    dwAvailVirtual As Long\r\nEnd Type\r\n\r\nPrivate Declare Sub OSGlobalMemoryStatus Lib \"kernel32\" Alias \"GlobalMemoryStatus\" (lpBuffer As MemoryStatus)\r\n\r\nPrivate Sub cmdOk_Click()\r\n    Unload Me\r\nEnd Sub\r\n\r\nPrivate Sub Form_Load()\r\n    Dim YourMemory As MemoryStatus\r\n    Set Me.Icon = Nothing\r\n    frmcenter Me\r\n    OSGlobalMemoryStatus YourMemory\r\n    lbltxt(6).Caption = Trim(Str(CLng(YourMemory.dwTotalPhys / 1024))) & \"ko\"\r\n    lbltxt(8).Caption = Trim(Str(CLng((YourMemory.dwTotalPhys / 1024) - _\r\n                            (YourMemory.dwMemoryLoad * (YourMemory.dwTotalPhys / 102400))))) & \" ko\"\r\nEnd Sub\r\n\r\nPrivate Sub frmcenter(frm As Form)\r\n    Dim savescale As Integer\r\n    savescale = frm.ScaleMode\r\n    frm.ScaleMode = 1\r\n    frm.TOP = Screen.Height / 2 - frm.Height / 2\r\n    frm.Left = Screen.Width / 2 - frm.Width / 2\r\n    frm.ScaleMode = savescale\r\nEnd Sub"
  32.         },
  33.         {
  34.             "AppNum": "WAB",
  35.             "ParNum": "104",
  36.             "ParDesc": "Code About : Centr├⌐e-non , Info Syst├¿me-non",
  37.             "Code": "\r\nPrivate Sub cmdOk_Click()\r\n    Unload Me\r\nEnd Sub\r\n\r\n\r\nPrivate Sub Form_Load()\r\n    set me.icon = nothing\r\nEnd Sub"
  38.         }
  39.     ]
  40. }